<%@ Language=VBScript %> <% If session("agentusername")="" Then Response.Redirect "default.asp" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'" dsreg.Open Sql,conn,1,1 session("agentusermoney")=dsreg("usermoney") 'dsreg.close 'set dsreg=nothing %> <%session("FreeHostCom").FreeHost_WR("html5")%>欢迎您光临代理专区！ <%session("FreeHostCom").FreeHost_WR("html6")%> <% Set dsuser = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_USER where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and regtime>'"&date&"'" dsuser.Open Sql,conn,1,1 usercount=dsuser.recordcount dsuser.close set dsuser=nothing If Application("agentcannetpay")=True Then Set dsuser2 = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_USER where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and waitmoney>0" dsuser2.Open Sql,conn,1,1 usercount2=dsuser2.recordcount dsuser2.close set dsuser2=nothing Set dsuser3 = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') and waitmoney>0" dsuser3.Open Sql,conn,1,1 usercount3=dsuser3.recordcount dsuser3.close set dsuser3=nothing end if %>

欢迎　<%if session("agenttype")<>"子代理" then%><%=session("agenttype")%><%end if%>　<%=session("agentusername")%> 　登陆时间：<%=now%> 　可用余额： <%if session("agentusermoney")<1 and session("agentusermoney")<>0 then%> 0 <%end if%> <%=dsreg("usermoney")%> 元 <%If Application("agentcannetpay")=True and dsreg("agentdegree")>0 Then%> ，等待入帐金额：<%=FormatNumber(dsreg("waitmoney"),2,-1)%> 元 <%end if%> 今天新用户 <%=usercount%> 个　<%If Application("agentcannetpay")=True Then%> 等待处理的网上支付成功但未入帐名下用户： <%=usercount2%> 个　等待处理的网上支付成功但未入帐名下代理： <%=usercount3%> 个<%end if%>

内部通知： <% Set dslogin = Server.CreateObject("ADODB.Recordset") Sql="Select top 10 * from FreeHost.FreeHost_News where type2=100 order by id desc" if dsreg("agentdegree")=0 then Sql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=103 or type2=104)) order by id desc" '直接用户 if dsreg("agentdegree")>0 then Sql="Select top 10 * from FreeHost.FreeHost_News where (username='freehost' and (type2=103 or type2=105)) order by id desc" '代理名下用户 'response.write sql ' dslogin.PageSize = 10 dslogin.Open Sql,conn,1,1 if dslogin.Eof then %>

数据库中不存在内部通知。 <%else%> 　 <% while not dslogin.eof %> <% dslogin.movenext wend%>

编号	标题	时间
<%=dslogin("id")%>	" target=_blank><%=dslogin("title")%>	<%=dslogin("posttime")%>

<%end if dslogin.close set dslogin=nothing%>

登陆记录： <% Set dslogin = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Loginlog where username='"&session("agentusername")&"' order by logintime desc" dslogin.PageSize = 25 dslogin.Open Sql,conn,1,1 %> <% if dslogin.Eof then %>
数据库中不存在登陆的记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dslogin.RecordCount <> 0 Then dslogin.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dslogin.PageCount<=10 then endini=dslogin.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dslogin.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页 <%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dslogin.PageSize If dslogin.RecordCount=0 Then Exit For %> <% If clng(pn)=dslogin.PageCount Then I = dslogin.RecordCount - (dslogin.PageCount-1) * dslogin.PageSize If N=I Then Exit For End If dslogin.movenext Next%>

编号	用户名	时间	登陆IP
<%=dslogin("id")%>	<%=dslogin("username")%>	<%=dslogin("logintime")%>	<%=dslogin("ip")%>

<%end if dslogin.close set dslogin=nothing%>

<%session("FreeHostCom").FreeHost_WR("html7")%> <% conn.Close set conn=nothing end if if ef then Response.Redirect "e.asp?e="&ec end if%>